home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)td.d64 / proc.convert2 < prev    next >
Text File  |  2007-02-28  |  517b  |  21 lines
  1. 0430 //
  2. 0440 PROC CONVERT(NUMBER) CLOSED
  3. 0450   IMPORT BASE#,RES$
  4. 0460   DIM STACK(80)
  5. 0470   SP:=1 // ╘HIS IS THE STACK POINTER
  6. 0480   REPEAT 
  7. 0490     TEMP:=NUMBER MOD BASE#
  8. 0500     NUMBER:=NUMBER DIV BASE#
  9. 0510     STACK(SP):=TEMP
  10. 0520     SP:+1
  11. 0530   UNTIL NUMBER=0
  12. 0540   FOR COUNT:=SP-1 TO 1 STEP -1 DO
  13. 0550     DIGIT:=STACK(COUNT)
  14. 0560     IF DIGIT<10 THEN
  15. 0570       RES$:+CHR$(DIGIT+ORD("0"))
  16. 0580     ELSE 
  17. 0590       RES$:+CHR$(DIGIT-10+ORD("┴"))
  18. 0600     ENDIF 
  19. 0610   ENDFOR COUNT
  20. 0620 ENDPROC CONVERT
  21.